home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.mactech.com 2010
/
ftp.mactech.com.tar
/
ftp.mactech.com
/
machack
/
Hacks97
/
KlingonBGApp.sit
/
Klingon BG App
/
Scripts
/
Klingon Change Freq.asc
next >
Wrap
Text File
|
1997-06-28
|
577b
|
24 lines
property myTalkInterval : 15
on ClockTalk()
AskForSpeakingInterval()
tell application "Klingon BG App"
«event KFRQKFRQ» myTalkInterval
end tell
end ClockTalk
on AskForSpeakingInterval()
-- How often do we speak
try
set x to display dialog "How often should I talk (minutes)?" default answer 15
set myTalkInterval to (text returned of x) as integer
if myTalkInterval is less than 1 then
display dialog "I have to speak at least once a minute!!"
set myTalkInterval to 1
end if
on error x
display dialog x
end try
end AskForSpeakingInterval
ClockTalk()